euclidean_distance Derived Type

type, public, extends(distance_base) :: euclidean_distance

Class to calculate the euclidean distance


Inherits

type~~euclidean_distance~~InheritsGraph type~euclidean_distance euclidean_distance type~distance_base distance_base type~euclidean_distance->type~distance_base

Type-Bound Procedures

procedure, public :: calculate => calculate_euclidean_distance

  • public function calculate_euclidean_distance(distance, vector1, vector2) result(d)

    Function to calculate euclidean distance between vectors

    Arguments

    Type IntentOptional Attributes Name
    class(euclidean_distance) :: distance

    A euclidean_distance object
    real(kind=wp), intent(inout), dimension(:,:) :: vector1

    A real vector
    real(kind=wp), intent(inout), dimension(:,:) :: vector2

    A real vector

    Return Value real(kind=wp)

    A real variable with the distance

Source Code

type,extends(distance_base) :: euclidean_distance 
!! Class to calculate the euclidean distance 
    contains
        procedure,public :: calculate => calculate_euclidean_distance
!
end type euclidean_distance